Program TestIncludeFile;

Uses 
    Crt;
    
Begin
    ClrScr;
    {$I write.pas}
End.
